-- card: 6181 from stack: in
-- bmap block id: 6624
-- flags: 0000
-- background id: 2808
-- name: About


-- part 1 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=345 top=126 right=153 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Resource Copier
----- HyperTalk script -----
on mouseUp
  go stack "resource copier"
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=342 top=181 right=231 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ResCopy Mover
----- HyperTalk script -----
on mouseUp  --DO NOT CHANGE LINE 2! IT IS MODIFIED BY ANOTHER SCRIPT!
  put "432 Utility Stacks:Copyright©1987 EDUCOMP:Resource Copier" into sourceStack
  put the long name of this stack into destStack
  delete first word of destStack
  delete first character of destStack
  delete last character of destStack
  if sourceStack<>destStack then
    set lockscreen to true
    set lockmessages to true
    push this card
    go stack sourceStack
    ResCopy sourceStack,destStack,"XCMD","ResCopy"
    get the result
    -- here is where you would copy more resources.
    pop card
    choose button tool
    click at location of card button "ResCopy Mover"
    domenu clear button
    choose browse tool
    set lockmessages to false
    set lockscreen to false
    if first char of it is "E" then
      -- you could put better error handling here
      put it into the message box
    end if
  end if
end mouseUp




-- part contents for background part 5
----- text -----
     This is an example "About..." card, where information about a stack and it's author might be shown. Somewhere on this card it's nice to have a button to paste onto the Home card, to get to the stack quickly.


Paste this button into your home card:


Paste this button into a stack that you
want to copy the ResCopy XCMD into,
then click on it from that stack.

-- part contents for background part 7
----- text -----
16